home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / aktiv filter (.txt) next >
Commodore BASIC  |  1995-03-30  |  2KB  |  64 lines

  1. 100 REM BERECHNUNG VON AKTIVEN FILTERN
  2. 110 PI=3.1415926536
  3. 120 PRINT"[147]"CHR$(14)TAB(5)"[194]ERECHNUNG VON AKTIVEN [198]ILTERN"
  4. 130 PRINT"   [212][146]IEFPASS, [200][146]OCHPASS ODER [194][146]ANDPASS ?"
  5. 140 GETA$:IFA$=""THEN140
  6. 150 IFA$="T"THEN1000
  7. 160 IFA$="H"THEN2000
  8. 170 IFA$="B"THEN3000
  9. 180 GOTO140
  10. 1000 REM BERECHNUNG TIEFPASS
  11. 1010 PRINT"[147][212]IEFPASS:":PRINT
  12. 1020 INPUT"[199]RENZFREQUENZ [K[200]Z]:";FO
  13. 1030 INPUT"[214]ERSTAERKUNG :";V
  14. 1040 INPUT"[203]ONDENSATOR [195]2 [N[198]]:";C2
  15. 1050 PRINT
  16. 1060 FO=FO*10^3:C2=C2*10^(-9):V=INT(V)
  17. 1070 R1=(SQR(2)/(4*PI*FO*C2*V))
  18. 1080 PRINT"[215]IDERSTAND [210]1 :";INT(R1);"[207]HM"
  19. 1090 R2=INT(V*R1/V+1)
  20. 1100 PRINT"[215]IDERSTAND [210]2 :";INT(R2);"[207]HM"
  21. 1110 R3=V*R1
  22. 1120 PRINT"[215]IDERSTAND [210]3 :";INT(R3);"[207]HM"
  23. 1130 C1=2*C2*(V+1)*10^9:C2=C2*10^9
  24. 1140 PRINT"[203]ONDENSATOR [195]1 :";C1;"N[198]"
  25. 1150 PRINT"[203]ONDENSATOR [195]2 :";C2;"N[198]"
  26. 1160 GOTO4000
  27. 2000 REM BERECHNUNG HOCHPASS
  28. 2010 PRINT"[147][200]OCHPASS:":PRINT
  29. 2020 INPUT"[199]RENZFREQUENZ [K[200]Z]:";FO
  30. 2030 INPUT"[214]ERSTAERKUNG :";V
  31. 2040 INPUT"[203]ONDENSATOREN [195]1=[195]2 [N[198]]:";C1
  32. 2050 PRINT
  33. 2060 FO=FO*10^3:C1=C1*10^(-9):C2=C1:V=INT(V)
  34. 2070 R1=INT(SQR(2)/(2*PI*FO*C1*(2+1/V)))
  35. 2080 PRINT"[215]IDERSTAND [210]1 :";R1;"[207]HM"
  36. 2090 R2=INT((V+1)/(SQR(2)*PI*FO*C1))
  37. 2100 PRINT"[215]IDERSTAND [210]2 :";R2;"[207]HM"
  38. 2110 C3=(C2/V)*10^9:C1=C1*10^9
  39. 2120 PRINT"[203]ONDENSATOR [195]1 :";C1;"N[198]"
  40. 2130 PRINT"[203]ONDENSATOR [195]1 :";C1;"N[198]"
  41. 2140 PRINT"[203]ONDENSATOR [195]3 :";C3;"N[198]"
  42. 2150 GOTO4000
  43. 3000 REM BERECHNUNG BANDPASS
  44. 3010 PRINT"[147][194]ANDPASS:":PRINT
  45. 3020 INPUT"[205]ITTENFREQUENZ [K[200]Z]:";FO
  46. 3030 INPUT"[194]ANDBREITE :";B
  47. 3040 INPUT"[214]ERSTAERKUNG :";V
  48. 3050 INPUT"[203]ONDENSATOREN [195]1=[195]2 [N[198]]:";C1
  49. 3060 PRINT
  50. 3070 FO=FO*10^3:C1=C1*10^(-9):C2=C1:V=INT(V)
  51. 3080 R1=INT(1/(2*PI*C1*B*V))
  52. 3090 PRINT"[215]IDERSTAND [210]1 :";R1;"[207]HM"
  53. 3100 R2=INT(1/(((2*FO^2)/B^2-V)*2*PI*C1*B))
  54. 3110 PRINT"[215]IDERSTAND [210]2 :";R2;"[207]HM"
  55. 3120 R3=INT(1/(PI*C1*B))
  56. 3130 PRINT"[215]IDERSTAND [210]3 :";R3;"[207]HM"
  57. 3140 C1=C1*10^9
  58. 3150 PRINT"[203]ONDENSATOR [195]1 :";C1;"N[198]"
  59. 3160 PRINT"[203]ONDENSATOR [195]2 :";C1;"N[198]"
  60. 4000 PRINT"[215]OLLEN [211]IE NEUE [215]ERTE EINGEBEN ([202]/[206]) ?"
  61. 4010 GETA$:IFA$=""THEN4010
  62. 4020 IFA$="J"THENRUN
  63. 4030 END
  64.